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_ BASSMID 16-Sep-1984 00:46:31 roth Oh ies 
| 14-Sep-1984 11:55:19 BASRTL.SRC 
Toae 0001 © MODULE BASSMID ( ' Extract the substring of the BASIC MID 
le ¢ BOOS 0 IDENT = '1-005° ' File: BASMID B33 . 
ls 0003 0 )s= 
3 4 0004 1 BEGIN 
; 5 0005 1! 
3 § sii ! SRR RRR AAAE RA AEEARAAEREA RARER ERATE ERATE EHH AARREARAR EERE EEe 
iz 1 
' 3 | 0068 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ° 
: 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 19 Baty : es ALL RIGHTS RESERVED. * 
; ; * 
; i Bolg 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
° 1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i EA : ” TRANSFERRED. ® 
: 'e * 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 21 9021 is CORPORATION. . 
4 ® @ 
H 6 $093 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
> 0025 1 !« * 
te 0026 1 !« * 
3 27 0027 1 Seeeeeereeeeeae eee eee ee eRe RETA TEETH AAA A AAR TATA RE HAAR EK AAe AER eee Aee eee 
: a 0028 1! 
: $3 0029 1 
; 0 0030 1 !+¢ 
; a 0031 1 ! FACILITY: String support Library 
; & 0032 1! 
; 33 00335 1 ! ABSTRACT: 
; 34 0034 1! 
ae 0035 1! This module extracts a substring according to the BASIC-PLUS-2 
; 2m 0036 1! syntax. It finds the substring of a main string starting at the 
a 0037 1! character position specified by the second input parameter and 
ts | 0038 1! continues for the number of characters specified by the third 
3 +4 4 : input parameter. This substring is copied to the destination string. 
: 2 sag ' : ENVIRONMENT: User moce, AST level or not or mixed 
s 65 0068 1 ! AUTHOR: R. Will, CREATION DATE: 21-Feb-79 
: 646 Bee 1} 
s $$ 045 1 ! MODIFIED BY: 
5; #& Bose 1! 
s 667 0047 1! R. Will, 21-Feb-79: VERSION 01 
; «648 00468 1 ! 01 - original 
; & 0049 1! 02 - change Linkage and call to COPY routine. 15-Mar-79 Rw 
; @ 3030 1 ! 1-003 - Change strin Uinkooes to start with STR$. JBS 04=JUN-1979 
3 51 51 1 ! 1-004 = Change call to STRSSCOPY. JBS 16-JUL-1979 
: 25 4 : : 1-005 = CALL STRSLEN_EXTR, DELETE THIS WHEN COMPILER CALLS STRS$. RW 1-NOV-79 
; «54 0054 1 
: 55 0055 1 !<BLF/PAGE> 
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74 Page 
14-Sep-19 ASRTL.SRCJBASMID.832; 
GLOBAL ROUTINE BASSMID (DEST_DESC, ! Pointer to destination descriptor 
° ! Pointer to source descriptor 
CHAR_POS ' First character to be included 
SuB_CENGfH) : NOVALUE= i Length of the substring 


+e 
FUNCTIONAL DESCRIPTION: 


This routine qzyrects the characters Sears tng at the 
character position in the source string specified by the input 
arameter and continuing for the number of characters specified 
y the input. and copies that substring 
to the destination string (by JSB to STRSSCOPY_R_R8) according 
to the syntax of the class of the destination string. 
If the input character gog tt ten is <1, 1 is used. If 
the input character position is > the (length 
of the source string, then the destination ys becomes a null 
string. If the substring pener® is < 1 a null string is returned. 
If character position + substring length - 1 > source string Length 
then the source string length is used. 


FORMAL PARAMETERS: 


DEST _DESC.wt.dx pointer to destination string descriptor 
SRC_BESC.rt.dx pointer to source string descriptor ‘ 
CHAR_POS.rw.v character position in src to start substring 
SuB_CENGTH.rw.v Length of substring , 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


BEGIN 
MAP 
DEST_DESC : REF BLOCK (8,BYTE]; 


MAP 
SRC_DESC : REF BLOCK (8,BYTE); 
prveL EN ERIE (DEST_DESC (0,0,0,0), SRC_DESC (0,0,0,0], CHAR_POS, SUB_LENGTH); 
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; 158 0250 1 END; ‘End of BASSMID 
-TITLE BASSMID 
. IDERT BTS Os. 
.EXTRN STRSLEN_EXTR 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
000 00000 ENTRY BASSMID, Save nothing : 
oF 9008 PUSHAB SUB_LENGTH : 
F 0000 PUSHAB CHA HAR P : 
7D 00008 mova DEST. Desc -(SP) : 
FB 9000¢ CALLS , STRSLEN_EXTR : 
04 0001 RET : 


; 0193 
; 0248 


oo 
foo 


a6 
000000006 0 


; Routine Size: 20 bytes, Routine Base: _BASSCODE + 0000 


; 189 0251 #1 

; 160 bS3¢ 1 END ‘End of module 

s 167 02535 1 

: 162 0254 0 ELUDOM 


| 
| 
PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 20 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INJTIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASMID/OBJ=OBJ$:BASMID MSRC$:BASMID/UPDATE=(ENH$:BASMID) 


Size: 20 code + 0 data bytes 
un Time 00:01.9 

tite Time: a 

Lines/CPU Min: 106 

Cece A agi 21191 
Y Used: 19 pages 

prone! ation Complete 
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